Private Sub Workbook_BeforePrint(Cancel As Boolean)

    Dim r As Long
    Dim  As Long
    
    If MsgBox("з 2  μұ?", _
              Buttons:=vbYesNo, _
              Title:=" ũ&VBA ̺") = vbYes Then

        With ActiveSheet

            .ResetAllPageBreaks
        
             = Cells(Rows.Count, "A").End(xlUp).Row
        
            For r = 8 To 
                
                If Cells(r, "B").Value = Empty Then
                    
                    cnt = cnt + 1
                    
                    If cnt Mod 2 = 0 Then
                        
                        .HPageBreaks.Add Before:=Cells(r, "A")
                
                    End If
                
                End If
                
            Next
    
        End With
        
    Else
    
        ActiveSheet.ResetAllPageBreaks
    
    End If
    
End Sub

